Option Explicit
Sub B_Sample035()
    Dim myWb As Workbook
    Set myWb = Workbooks(1)				'Nï
    MsgBox myWb.ReadOnly
    Set myWb = Nothing					'
End Sub
